Pensieve header: Knot[12,Alternating,Last], just for the heck of it.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant\\k=2"];

AllKnots[12,Alternating]//Last

$k=2; 
ℏ=γ=1;
$QZipFail=True;
K=Knot[12,Alternating,1288];
{n,type,k}=List@@K;
fname="Data/"<>ToString[n]<>(type/.{Alternating->"a", NonAlternating->"n"})<>ToString[k]<>".m";
Switch[FileType[fname],
None,z=Echo@(K->Timing[𝔼4@Z@K]);Put[z, fname],
File,z=Echo@Get[fname]
];
z